home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -out of fuel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.1 KB  |  42 lines
  1. 1 ifg=0theng=1:load"flasher",8,1
  2. 2 print"[153][147][142]":poke53281,0:poke53280,12
  3. 3 w=100
  4. 10 fora=1105to1142:poke54272+a,10:pokea,160:next
  5. 20 fora=1142to1105step-1:pokea,160
  6. 21 forb=1tow:next
  7. 25 pokea,231
  8. 26 forb=1tow:next
  9. 30 pokea,97:reada$:printa$;:readb:ifb=1thenprint
  10. 31 forb=1tow:next
  11. 35 pokea,101
  12. 36 forb=1tow:next
  13. 40 pokea,32:reada$:printa$;:readb:ifb=1thenprint
  14. 45 next
  15. 50 fora=0to450:poke53281,aand1:next:poke53281,0:poke2,253:sys49152:fora=0to3000
  16. 60 next:print"[147]";:end
  17. 1000 data"help!",1,i ,0,a,0,m ,0,r,0,u,0,n,0,n,0,i,0,n,0,g ,0,o,0,u,0,t ,0
  18. 1005 datao,0,f ,0,f,0,u,0,e,0,l,0,"!",1,"h",0,"e",0,"l",0,"p",0,"!",0
  19. 1010 data"h[145]",0,"e[145]",0,"l[145]",0,"p[145]",0,"!",0,"h",0,"e",0,"l",0,"p",0
  20. 1015 data"!",0,"h[145]",0,"e[145]",0,"l[145]",0,"p[145]",0,"!",1
  21. 1020 data"help![145]",1
  22. 1021 data"help![145]",1
  23. 1022 data"help![145]",1
  24. 1023 data"help![145]",1
  25. 1024 data"help![145]",1
  26. 1025 data"help![145]",1
  27. 1026 data"help![145]",1
  28. 1027 data"help![145]",1
  29. 1028 data"help![145]",1
  30. 1029 data"help![145]",1
  31. 1030 data"help![145]",1
  32. 1031 data"help![145]",1
  33. 1032 data"help![145]",1
  34. 1033 data"help![145]",1
  35. 1034 data"help![145]",1
  36. 1035 data"help![145]",1
  37. 1036 data"help![145]",1
  38. 1037 data"help![145]",1
  39. 1038 data"help!",1
  40. 1040 dataputt! ,0,putt! ,0,"putt!",1,the ,0,"fuel[146] ",0,is ,0,almost ,0,gone!
  41. 1045 data1,,1,h e l p !,1,,,,,,1,pow! ,0,pop! ,0,"blam![146]",0
  42.